Olá caros amigos do planilhando,
preciso da ajuda de vcs sobre bloqueio da Planilha.
Atualmente eu ja tenho um codigo. é este:
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long
'Retorna o nome do computador
Private Function lfNomeComputador() As String
Dim stBuff As String * 255, lAPIResult As Long
Dim lBuffLen As Long
lBuffLen = 255
lAPIResult = GetComputerName(stBuff, lBuffLen)
If lBuffLen > 0 Then lfNomeComputador = Left(stBuff, lBuffLen)
End Function
Public Sub lsRetornaNomeComputador()
'Faz as verificações dos computadores para acesso ao programa, caso não estegem na lista não terão acesso.
Dim CompName As String
CompName = lfNomeComputador
If CompName <> "ADM18" And _
CompName <> "ADM16-ORC" And _
CompName <> "ADM08" And _
CompName <> "ADM26" And _
CompName <> "ADM07" And _
CompName <> "wrf" Then
MsgBox "Este computador não tem direito de executar esta aplicação."
' e fecha o programa sozinho caso o computador não tenha acesso.
ActiveWorkbook.Close SaveChanges:=False
Else
MsgBox "OK computador confirmado"
End If
End Sub
A programação funciona perfeitamente, sendo que ela só funciona se o usuário clicar na macro ("BOTÃO"), mais eu gostaria de saber se tem como ela rodar ao abrir a planilha, pq eu não quero que outros usuários possam ver o conteúdo da minha plan?
No Aguardo
Daniela
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 15/09/2011 5:14 am